home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / pasteWordUnderMouse.tcl < prev    next >
Text File  |  1995-06-01  |  3KB  |  117 lines
  1. # **************************************************************
  2. # 
  3. #  Filename  :  pasteWordUnderMouse.tcl
  4. # 
  5. #  Author    :   HjK
  6. # 
  7. #  Creation Date:    11.03.1995 {14:06:59 Uhr}
  8. #  Last   update:    24.04.1995 {11:25:53 Uhr}
  9. # 
  10. #  System    :  Alpha Version 6.0b13, Mar. 25, 1995
  11. # 
  12. #  Copyright: Juergen Krey, 11.03.1995
  13. # 
  14. #  MAIL:      Bergstr. 38, 53783 Eitorf
  15. #  E-mail:    krey@gmd.de
  16. # 
  17. # **************************************************************
  18. # Trying to program pasteWordUnderMouse
  19.  
  20. # matchIt doesnt work correct for () and [] at some positions
  21. # therefore use balance, if appropriate
  22. # There are four possible Delimiter matches
  23. # Ñ openingDelim right of mouse-pointed position
  24. # Ñ openingDelim left of mouse-pointed position
  25. # Ñ closingDelim right of mouse-pointed position
  26. # Ñ closingDelim left of mouse-pointed position
  27. # ... they are treated in the enumerated order!
  28.  
  29. proc pasteWordUnderMouse { {insertWhitespace 0} } {
  30.     set res [catch {mousePos} mousePos]
  31.     if {$res != 0} { return }
  32.     set oldCursorPos [getPos]
  33.     set bufferPos [eval rowColToPos $mousePos]
  34.     goto $bufferPos
  35.     
  36.     set nextPos [expr $bufferPos + 1]
  37.     set nextChar [getText $bufferPos $nextPos]
  38.     
  39.     set prevPos [expr $bufferPos - 1]
  40.     set prevChar [getText $prevPos $bufferPos]
  41.     
  42.     set closingDelims "\x29\x5d\x7d"
  43.     set openingDelims "\x28\x5b\x7b"
  44.     
  45. # Ñ openingDelim right of mouse-pointed position
  46.     if {[string first $nextChar $openingDelims] != -1} {
  47.         goto $nextPos
  48.         set balanceFailed [catch {balance}]
  49.         if {! $balanceFailed} {
  50.             set res [getSelect]
  51.             goto $oldCursorPos
  52.             insertText $res
  53.             return
  54.         }    
  55.     }
  56.     
  57. # Ñ openingDelim left of mouse-pointed position
  58.     if {[string first $prevChar $openingDelims] != -1} {
  59.         set balanceFailed [catch {balance}]
  60.         if {! $balanceFailed} {
  61.             set res [getSelect]
  62.             goto $oldCursorPos
  63.             insertText $res
  64.             return
  65.         }    
  66.     }
  67.  
  68. # Ñ closingDelim right of mouse-pointed position
  69.     if {[string first $nextChar $closingDelims] != -1} {
  70.         set balanceFailed [catch {balance}]
  71.         if {! $balanceFailed} {
  72.             set res [getSelect]
  73.             goto $oldCursorPos
  74.             insertText $res
  75.             return
  76.         }    
  77.     }
  78.  
  79. # Ñ closingDelim left of mouse-pointed position
  80.  
  81.     if {[string first $nextChar $closingDelims] != -1} {
  82.         goto $prevPos
  83.         set balanceFailed [catch {balance}]
  84.         if {! $balanceFailed} {
  85.             set res [getSelect]
  86.             goto $oldCursorPos
  87.             insertText $res
  88.             return
  89.         }    
  90.     }
  91. # Ñ normal insertion of a wordBreak-Pattern string
  92.  
  93.     backwardWord
  94.     set from [getPos]
  95.     forwardWord
  96.     set to [getPos]
  97.     set res [getText $from $to]
  98.     goto $oldCursorPos
  99.     switch $insertWhitespace {
  100.         0 {set res " $res "}
  101.         1 {}
  102.         2 {append res .}
  103.         default {}
  104.     }
  105.     insertText $res
  106. }
  107. #endproc pasteWordUnderMouse
  108.  
  109. ##############################################################################
  110.  
  111. bind F10 <s>    {pasteWordUnderMouse 0}
  112. bind F10          {pasteWordUnderMouse 1}
  113. bind F10 <z>     {pasteWordUnderMouse 2}
  114.  
  115.  
  116.  
  117. # **************************************************EOF